home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / MESSIAH.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  384 b   |  19 lines
  1. 1  'MESSIAH
  2. 10  'CLS:KEY OFF
  3. 20  PLAY"L4 T180 MN"
  4. 25  FOR J=1 TO 2
  5. 30  FOR I=1 TO 5
  6. 40   READ M$
  7. 50  'PRINT M$
  8. 60   PLAY M$
  9. 65  'INPUT X$
  10. 70  NEXT I
  11. 75  RESTORE 100
  12. 80  NEXT
  13. 100  'NOTES:
  14. 110  DATA "O3E F G E  A G2.  E F G E  AG2 G8 G8
  15. 120  DATA "A G2 G8 G8  A G2 G8 G8  A G F E
  16. 130  DATA "D2 C2  G2 A B  O4C8 O3C8 O4C C8 C8 O3B
  17. 140  DATA "A G2 G8 G8  A G2 G8 G8  A G2 G8 G8
  18. 150  DATA "A G F E  D. C8 C2 C1
  19.